Option Explicit
Sub Q_Sample013()
    ']wޥζMicrosoft Scripting Runtime
    Dim myFso As Scripting.FileSystemObject
    Dim myTxt As Scripting.TextStream
    Dim myStr As String
    Set myFso = CreateObject("Scripting.FileSystemObject")
    'wɮ
    Set myTxt = myFso.OpenTextFile(Filename:=ThisWorkbook.Path & "\Q_Test.txt", _
        IOMode:=ForReading)
    With myTxt
        myStr = .ReadAll
        Debug.Print myStr
        .Close
    End With
    Set myTxt = Nothing                                    '
    Set myFso = Nothing
End Sub
